home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / oasis / oasisegs.lha / egs / tak.lisp < prev    next >
Lisp/Scheme  |  1992-04-16  |  335b  |  11 lines
  1. (proclaim '(function tak (fixnum fixnum fixnum) fixnum))
  2. (defun main-tak () (tak 24 16 8))
  3. (defun tak (x y z)
  4.        (declare (type fixnum x)
  5.                 (type fixnum y)
  6.                 (type fixnum z))
  7.        (if (<= x y) z
  8.            (tak (tak (- x 1) y z)
  9.                 (tak (- y 1) z x)
  10.                 (tak (- z 1) x y) )))
  11.